(load "cn-proc.lisp")
(defvar *current-list* nil)
(defvar *current-loc* nil)
(defvar *cn-list* nil)
(defvar *cn-loc* nil)

(defun lisp-list(str)
   (setf *current-list* nil)
	(with-open-file (fp str) 
		(when fp (do ((l (read fp nil) ))((null l) (progn (nreverse *current-list*)(setf *current-loc* (car *current-list*))))
			(push l *current-list*)(setf l (read fp nil))))
	))

